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HARRISBURG AREA TIMEX SINCLAIR USERS GROUP HEUSLETTER NOVEMBER 1999 


We had no official meeting on 
the 13th. Although Ed Kapp and 
got together and discussed 


— upcoming events. 


to the 


> programs. Also here are a 
articles 


We went to the CATS meeting 
the next day. Tom Bent looked at a 
problem with Keith’s QL. 

On Sunday the iSth, Ed, Keith 
and myself went to the TI Computer 
Fest. We had a table in one of the 
buildings. This was mostly a TI 
event but in addition to us there 
were Amiga, Tandy, and Commodore 
groups. As usual the TI group put 
on a good show. 

We did get a new membership at 


this show: Paul and Susanne 
Wilding from York, PA. They own a 
ZX81, TS10@@0, TS2G6S and a 288. 


NEXT MEETING 
Friday November 19th 6:39 to 9:36 


PM Camp Hill Mall Community Room 


I need some more contributions 
newsletter. I can write a 
few 288 articles and occasionally 
a @L article. So I especially need 


196@ and 24668 articles. Some QL 
and 288 articles would be nice 
too. 


I can take Ascii, @L Quill Doc 
or Z88 Pipedream files. on QL DSDD 
5 1/4" disk (728 sectors), QL 
microdrive, IBM 369K disk, 20868 
Aerco disk, 2866 RF/M disk, and 
Z88 Eprom. I can also take files 
over the modem. Or you can submit 
it on paper, ready to be 
photocopied if you can’t write to 
any of the above formats. I can’t 
take Mscript or Tasword files. 

In this newsletter is a rather 
long 2968 solitare program by Joan 
Kealy. It would probably be best 
to type this in over several 
sessions. Or you can contact me 
and I can send you the program as 
well as some of Joan’s music 
couple 
from the exchange 
newsletters which I thought would 
interest some of our members. 


Dave Bennett 329 R. 
Lemoyne, PA 17843 


Walton Street 
717-774-7531 


This is an excerpt from "SQ" NOTES 
by R.A. Hilsmann from the July 
issue of SMUG Bytes. The 
newsletter of the Sinclair 
Milwaukee Users Group. This same 
group is putting on the Sinclair 
Fest next June. 


I just aquired a RGB monitor for 
my QL computer, naturally, since I 
like to keep cost to a minimum, it 
is one of the cheapest ones, a 
Franklin MC-14@9TS, which I picked 
up for $159. Of course, having a 
Sinclair computer, one does not 
just plug something like that in 
on the output port for such a 
device, but let me talk about what 
needs to be done to make it work 
on the @L since I could not find 


much about it in the papers I had 
on the QL. 
The. Franklin monitor is 


configured to IBM standard, having 
a 9 pin D connector on the end of 
its input cable. Input on all pins 
on this D connector must also be 
IBM standard for RGB monitors. 

In the next column the IBM 
standard inputs needed on the D 
connector: 


Pin #1 = Ground 

Pin #2 = Ground 

Pin #3 = R(ed) 

Pin #4 = G(reen) 

Pin #5 = B(lue) 

Pin #6 = Intensity 

Pin #7 = Not connected 
Pin #6 = Horizontai Sync 
Pin #9 = Vertical Sync 


All inputs have to be TTL, 
(positive @ to 5 volt). The QL has 
all the above outputs, but 
horizontal sync (composite sync) 
is negative. Therefore any IBM 
standard monitor will not work. 
There is a fix for that, the 
output on pin 4 of the DIN 
connector (on the BL) has to be 


inverted. This could be done by 
wiring an extra chip onto the 
cable, or much better, open your 


QL, and bend pin 12 of I1C22 
(ZX8391) out, so that it is not 
inserted into the socket. Pin 1 to 


6 on the 74HCS4 chip on the Spider 
Board, found siliconed onto the 
memory chips, are not used, solder 


two wires to either pin 1&2, 3&4 
Or 5&6, strip the other end of the 
wire coming from either pin 2, 4 
or 6 abit more than a Quarter 
inch, fold the stripped end, and 
insert it into the socket where 
pin 12 would normally be inserted. 
Re-insert the ZX8301 chip into its 
socket, making sure pin 12 is bent 
Out, and does not make contact 
with the wire you inserted (also 
Make sure the bent pin does not 
touch any pin on the 68898 chip 
next to it). Now solder the 
remaining wire from the 74HCg4 
Chip to pin 12 of the ZX8301 chip. 

This completes the conversion 
(after you have Managed to put 
your QL back together) of your @L 
to IBM standard. Most RGB monitors 
On the market can now be connected 
to your QL. All the above of 
course is not necessary,.if you buy 
a Magnavox RGB monitor. Will your 
monitor still flicker in the 
monitor mode? Yes, if you look 
close the 5@ Cycle refresh is 
Still noticeable, but not quite as 
bad, at least not on the Franklin. 
Perhaps after the outputs from the 
2X8381 chips are buffered....? 

If you do not have a RGB cable 
that has been made for the QL, you 
will need a 8 pin DIN connector, a 
9 pin D connector. (female), and a 


6 wire cable. Connections are as 

follows: 

D CONNECTOR DIN CONNECTOR 

PIN #1 ------------ > PIN #2 

PIN #2 ------------ > PIN #2 

PIN #3 ------------ > PIN #7 

PIN #4 ------------ > PIN #6 

PIN #5 ------------ > PIN #8 

PIN #6 ------------ > NOT CONNECTED 

PIN #7 ------------ > NOT CONNECTED 

PIN #8 ------------ > PIN #4 

PIN #9 -~----------- > PIN #5 

CASE ------------ > SHIELD 
Further improvements to your QL 

should be made, such as to buffer 

the monitor output from the 


ZX8391, something I have not done 
at this time. There are more fixes 
for your QL to be found in the 
Past issues of Quantam Levels (and 
I am sure in future issues). 


This article comes from the July 


August issue of Nite-Times News - 
from the Chicago Area Timex Users 
Group. 
RETRIEVING LOST_DOCs 
by Al Feng 
It happens. More often with long 


files on microdrive, but it could 
happen on a floppy disk. You go 
back to reLOAD a file_doc for 


editing, and all you get is 
something like: 


Loading ... 
6789 m a pt a W = g. 4 
ERROR - Press SPACE to continue 


Or your file_doc is no longer 
recognized as a "valid" QUILL 
file! So, you press the Space Bar, 
and „try to figure out how to 
Salvage the document without 
having to retype the entire file. 
After all, you know the file is 
still there because you can VIEW 
it by using a "COPY mdv2_file_doc 
to CON" Super BASIC command. 


What’s happened? - Somehow the 
non-ASCII “trash” at the end of 
the program has become corrupted, 
Unfortunately, this is a very 
necessary part of the tile. Don’t 
despair. Recovery is simple enough 
if you don’t panic (Note: this 
technique has also been found to 
work on files which have caused a 
keyboard lock up upon pressing the 
SPACE BAR; so, it should work on 
almost any file). 


1) Simply LOAD a short document 
(example, the *BLANK_doc’ that you 
use for page formatting); then, 


2) MERGE your recalcitrant file. 


You should find the troublesome 
file appearing intact and on 
screen. Needless to Say; you 
should now re-SAVE the file on a 
freshly formatted medium with an 
appropriate file name. 


HAPPY TRAILS, and COMPUTING, 
TO YOU. a 4 


) UNDATION. ” 


1 BORDER Q: FARPER O: INK 7: Ü 
LS : GO SLUB goad 
Ë PRINT INVERSE 14: 
E 


Oo 3 PRINT '" FROM 1-7 CARDS A 
IRE 


PERLT To SEVEN COLUMNS. THE L 
“AST CARD ONLY" 
4 PRINT “OF ERCH COLUMN BEING 


FACE UF- WARDS." 
6 PRINT EXPOSED CARDS ARE 
MOVED IN" 


8 PRINT “ASCENCING SUIT SEQUE 
NCE TO ACES AS THESE APPEAR, ANC 
IN DESCEND-ING"; 
1@ PRINT " SEQUENCE OF ALTERNA 
TE COLORS TO THE BOTTDH CARDS oF 
COLUMNS.” 
14 PRINT " COMPLETE SEQUENCES 
eh ae MAYBE MOVED BETUEEN COL 
16 PRINT “EMPTY COLUMNS MAY BE 
FILLED ONLYBY SEQUENCES HEADED 
BY KINGS." 
18 PRINT " THE REST OF THE P 
ACK IS CEALTS CARES AT A TIME TO 
A WASTE” 
20 PRINT “PILE. THE TOP CARD Q 
F WHICH IS ALWAYS AVAILABLE. A 


NY NUMBER OFREDEALS ARE ALLOWED. - 


22 PRINT “"BRESS ‘ENTER’ Ta co 


NTINUE. y 
24 INPUT LINE I$: CLS 
26 PRINT " CARDS ARE MOVED BY 
SIMPLY TYPING THE ORIGINAL 


COLUMN NUMB-ER,OR P FOR WASTE PI 
LE,FOLLOQWED BY THE DESTINATION C 
OLUNHN." 

23 PRINT “NUMBER OR ‘F? FOR FO 


30 PRINT : PRINT ” D DEALS A F 
RESH GROUP OF THREE CARDS,.E ENDS 
THE GAME 

32 PRINT PRINT “PLEASE PRES 
S ‘ENTER 


34 PAUSE @: CLS : POKE 23658, 

41 LET G=8: LET NU=1: LET x=" 
“y LET 35221: eee Vs (G2) 

43 DIH Fid 

44 FOR F=1 To 4: LET FP) e23: 


LET 
43 CIM old) 
5S@ RESTORE 168: CLS 
B 8; INVERSE 1," 


6@ PRINT TAB 3; INVERSE 1;" I° 
M SHUFFLING THE PRCK " 
70 PRINT TAB 3; INVERSE 1," 


80 LET L=8: DIK tiFi: DIM bi? 
: DIM FStle,2} DIM peise,2): DI 
M sigi: CIM m$t{i3)}: DIM a$i7. 28 
2): FOR m=l TO 7: LET timjen: L 
] NEAT m: LET U=1 

20 CIH figi: DIM p (41: RANDOHI 
ZE LET p=0 

ioo CIH egite2o) 

11@ LET d$= 

158 FOR I=1 TO 4: READ Sit): H 
ExT I: FOR I=1 TO 13: READ NSIT) 
: NEXT I 

“1628 CATA “Fe, Oe s s oes 


PRINT TA 


Ril A .. Deas maa gr ug” Pri ; ee a ae i 


i J rag" k 
LET a "Ra: atasate 2#2¢$24234+3 
ETER EZS EET cate Ss¥se5¢5 eyceetots 
ah A a¥a¢3 
LET C$=C$+ oF Ses TOTTE 
JEIJE ea RRR z LET 


252 


190 FOR I=1 Tū SE: LET A=INT f 
NCC) +1: LET PIF} =<cgi24eA-1 TO Z 
4A}: LET L$=C$i1 TO 2eiR-iil: 

T R$=C$i24A4+1 TO LEN C$): LET C# 


=L$+R$: LET C=C-i: NEXT I 
P S : FOR I= = TO F7: FOR U=2 
TQ I: PRINT AT d, (I-13 43; 

260 IF J=BtI} THEN PRINT PIL): 
LET ASII,JI =P$iL?}: LET L=L+1: H 
EXT J: NEXT I: GO TO 238 

270 LET A$iI, J} =P$iL}): PRINT IN 
VERSE 1;" “: LET L=L+1: NEXT d: 
NEXT I 

238 FOR ie TO 52: LET Os=Db$+F 


298 PRINT AT 2,28; °" ————— 
"; FOR F=1 To 13: PRINT AT F,20; 
F 


3ga PRINT TAR gg; ——,— D aj >e ——. ' 
310 INVERSE 1: FOR I=@ TQ 18 5T 


EP 3: PRINT AT @,I;” “; STR (14I 
43): NEXT I: INVERSE @ 
33@ IF Og="" AND P=@ THEN PRINT 


AT 20,12; "DECK EXHAUSTED”: GO T 
0 1368 

348 FOR IT=1 TO 7: IF B(I);:1 THE 
N LET I=8: NEXT I: GO TO 350 


368 LET PI=@: LET X=0: LET Y=: 
LEY T=@: LET Tiree PRINT AT 19, 
Ə TAB 24;AT 19, “FROM 

330 LET Z$= INKE ys. IF Z*s="" THE 
H GO TO 388 


390 IF Z$="D" THEN GO TO 1270 
400 IF Z$="E" THEN GO TO 1115 
418 IF Z$="P" THEN LET PI=1: GO 


430 IF 2$:"7" OR Z$<"1" THEN GO 


62 

448 ani T=VAL Z$: LET X=T: LET 

Y =B ix 

450 IF Y=@ THEN GO TO 33a 

450 IF T=@ THEN GO TO 380 

480 PRINT 2%," TO ”; 

490 LET B$=INKEYS: IF B$="" THE 
TO 498 


491 IF B$="F" THEN GO TO Sea 
492 IF B$<"1" OR BS:"7" THEN GO 


S@@ ON ERR GO TO 9990 
S@S IF Bg="F" THEN LET TT=8: GO 


20 
sie LET TT=VAL BS 
s30 IF Tr=T THEN GO TO 490 
535 IF Og$="" THEN GO SUB 1108 
S40 PRINT B$; 
S5@ IF Tr=8 THEN LET Ye=Ttx) 
S6@ IF PI=l THEN LET X#=H$: GO 


s20 IF Tr=a THEN GO TO 830 

ge IF TI(TT) =à AND NU:+13 THEN 
GQ TO 330 

610 IF TI(TTi=@ THEN LET BITT1) =i 
: GO TO 67 

62@ LET 31=5U: LET H1 =hlL! 

630 LET x$=R$ITT,TITT)) 

648 GO SUB 9728 

65@ IF NU-1<:N1 OR 2-5U¢:51 THE 
N GO SUB 950 

670 GO SUB 1048: LET F=1 

same IF PI=1 THEN LET Fee: LET F 
$(1)=H$: GO SUB 1388: LET P=P-1: 
GO TO 742 


69@ FOR I=B(X i TO Ttk): LET F$: 

sAS(X,I}: LET AŞ (X, I} =" ees < 
ET F=F+1 

7O@ PRINT " s; DVER 2;Ugsi TO 3 


@O)};: NEXT I: LET XX=X: LET "Y =Y 
71@ LET B(X)=B(Xi-1l: LET T(X)=B 
(X) 

720 IF B(X1Y:@ THEN LET G=1 

730 IF TUTT)Z@ THEN LET &%=TT: + 
ET =@: GO SUB 1846: GO To 75a 


ts 


74a LET x=TT: LET Y=TiTT): GQ 
UB 1040 

750 PRINT OVER 21:08; : FOR I=1 T 
Ü F-1: PRINT F$(I}; OVER 1;U$i T 


O 30);: LET R*$í(X,T(X)+1l =FStI} 
760 IF Feiltiec:" U” THEN LET Tix) 
=T (X) 41 


770 NEXT I 

Z8@ FOR I=1 TO 12: LET Fits =" 
NEXT 1: LET Fst 

790 IF G=1 THEN LET G=@: LET x= 
XX: LET VY=7"y¥-1: GO SUB 1040: FRI 
NT AGIX,Y?) 

aga IF PI=1 THEN GO To 1318 

818 GO TO 338 

830 IF Ft52)i>NU-1 THEN GO TO 3 


840 LET (52) =0(52)41: LET Fise 


aSa PRINT AT F52) ,52434+18; 
86@ IF Y=1 THEN GO TO 338 
870 IF R$I(X,Y-1)4>”? " THEN LET 


88Q@ PRINT x$ 

890 IF PI=1 THEN GO SUB 1388: L 
EY P=P-1: GO TO 1318 

908 GO SUB 1848: PRINT " _"; 
ET R*$(X,Y) = ': IF Y>1 THEN. LET 
TUM sTtxi-a 

91@ IF TiX)=8(*)}-1 THEN LET B(x 
)=B (X) -1 


920 IF G=1 THEN LET G=: PRINT 


AT (24-PEEK 23689) -1, SS-PEEK 236 
88-2; AS(K,¥-1} 

930 GO Ta 332 

95@ REM ERROR TRAPPING 

953 IF X$(1) ="K" THEN LET 51=51 


955 IF NU: N1 THEN GO TO 96a 
957 IF 5U::51 THEN GO TO 96a 
953 RETURN 
96@ PRINT AT 21,28;" WRONG VA 
LUES OR COLORS “: PAUSE 288: 
PRINT AT 21,2;" 
GO TO 338 


980 RESTORE 158: FOR I=1 To 4: 
READ WS: IF X$(LEN x$) =U% THEN L 
ET SUsI-INT (Iv2}42: LET S2=s1 

998 NEXT I 
1800 FOR I=1 TO 13: READ Us: IF 
MSC1) =WS THEN LET NU=I: LET I=i4 
1818 NEXT I 
1820 RETURN 
1848 LET X1=x: LET Y1=/: PRINT A 


1Q@5@ LET *1=*143-3: IF *1=8@ THEN 
GO Ta 10878 

1250 GO TO 19882 

1072 IF wi=8@ THEN RETURN 

1030 PRINT AT Y1,X1; : RETURN 
1118 IF O6$="" AND B$.:"E" THEN F 
ETURN 

1115 FOR I=i TO 4: IF Q(Il ¿533 T 
HEN GO Ta iia 

1120 NEXT I: PRINT AT 16,8; FLAS 
H 1; "YOU'VE PONI” 

1138 FOR I=1 TO 3560: NEXT I 

1148 GO TO 1132 

1168 PRINT AT 16,8; FLASH 1; "sDR 
RY .YOU’VE LOST" 

1210 PRINT : PRINT AT 19,10; "PLA 
Y AGAIN? (ty ZH 

1220 LET a INKEY$: IF Z$="" THE 
N GO TO 122 

1230 IF FrN THEN CLEAR : GO T 


1240 IF Z2$¢2"N" THEN GO TO 1228 


1250 PRINT “"“GOODBSYE!!!": ON ERR 
RESET : STOP 

1278 LET P=P+3 

127S IF D$="" THEN PRINT AT 21,1 


0: "DECK USED UP; PLAY ON" 
128@ IF D$<>"" THEN GO TO 13108 


1298 FOR I=1 TQ F: 
N LET I=8: NEXT I: GO TQ 33a 
1308 NEXT I: GQ Ta 1720 


1310 IF P=@ THEN LET H$="  ": GO 


TO 1358 

132@ IF LEN D$ve=P-1 THEN LET P= 
LEN D$ve: GO TO 1358 

1330 IF LEN O$/2=P-2 THEN LET P= 
LEN Dgve: GO TO 1358 

134@ IF P LEN D$v2 THEN LET P=38: 
GO TO 1278 

1350 LET H#H$=0D$i24f-1 TO (2eP-1)1+ 
1) 


36@ PRINT AT 21,8:;HS: GO TO 340 
138@ LET L$=D3i TO (P-1)42): LET 
R$=D$(2EP 41 TO LEN D$): LET D$= 
L$¢+RS: RETURN 

1399 STOP 

1500 FOR F=1l TO 4: LET F(F) =12: 
NEXT F 

1618 GO TO 41 

1728 FOR @=1 TO 7: IF TtO)<:8@ TH 
EN LET @=8: NEXT 2: GO TO 174a 
173@ NEXT @ 

1748 RETURN 

17S@ IF FtS2)1 4:NU-1 THEN NEXT ü: 
GO TO 1728 

17658 LET @(352)} =8(52)4¢1: LET Fise2 
j =NU: PRINT AT 8,28; 

1770 PRINT AT Fit52) ,3223; 

1780 PRINT x$ 

1798 GO SUB. ade: PRINT " ees 

IF Y>Q THEN 


1300 IF Tix) =Bix) THEN LET Bixis 
B(X1-1 


1820 IF D$i2"" THEN RETURN 


9020 RESTORE 9026: FOR I=8 To 7 
sear READ R.B.,C D: POKE USR “A+ 
I, PONE USR "A" +I,B: POKE USR 
o +I,C: POKE USR “DU +I,D: NEXT 


ge20 CATA Ə BIN 18088120,16,16,16 
BIN 111011128,BIN 1112008,BIN 111 
ooa 

9@30 CATA BIN 20111230, 254.BIN 1 
1111ð0.8IN 12129188 

9@48 CATA BIN 21111108. 254.,BIN 1 
111111. BIN 11111110.8IN 1111111 
@,BIN 11111028,8IN 128012010, BIN Q 
18210100,BIN 8@1111108,5IN 111889, 


16,16 

98528 DATA BIN 28111888, 
16,8,BIN 1110828,16 

92528 FOR F=28 Te. Z: RERD 


y 


x 
ET 
f 
ho ` 
oe 
h 
£ 
(si) 


9998 CLEAR : SAVE “SUPERSOQL" LIN 


